Top 10k strings from Video Spectrum - Issue 07 (1985)(Video Spectrum)(es)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   7 ;"Revista de Software"
   6 ;"VIDEOSPECTRUM"
   5 ;"SUSCRIBASE TELEFONICAMENTE":
   5 ;"**********"
   4 ;"CONCURSO":
   4 ;"C/ San Telmo 24 - 28016 MADRID"
   4 ;"3)Si es elegido ganara 5000 Pts"
   4 ;"1)Realice un programa original"
   3 ;"______________________________"
   3 ;"Tfno.(91) 259 31 08"
   3 ;"C/San Telmo 24 - 28016 MADRID"
   3 ;"2)Mandenoslo en una cassette"
   3 )+(J*o)+(p)+(g)+(K*.15
   3 "- - - - - - - "
   3           
   2 ;"____________________________"
   2 ;"VIDEOSPECTRUM":
   2 ;"Tfno. (91) 259 31 08"
   2 ;"PULSE UNA TECLA PARA CONTINUAR";
   2 ;"PORQUE NO JUEGAS CON MAS FILAS?":
   2 ;"MUY MAL HECHO, FATAL!!":
   2 ;"JUEGO YO"
   2 ;"J.A.J.M.-84"
   2 ;"ESPERA UN MOMENTO!"
   2 ;"4)Envielo a: VIDEOSPECTRUM"
   2 ;"2)Mandenoslo en un cassette"
   2 ;" Pulsa una tecla para continuar.":
   2 ;"        GRAFICO DE BARRAS.      ":
   2 ;"                               "
   2 +(R-1400000
   2 (F*a)+(d)+(c*H)+(e*L)+(b*E)+(I*10
   2                      
   1 z$="Enero     Febrero   Marzo     Abril     Mayo      Junio     Julio     Agosto    Septiemb. Octubre   Noviembre Diciembre "
   1 x$="312831303130313130313031"
   1 v$="--*TOP SECRET:MISION:Recoger cargas de armamento f.a *--"
   1 terminado binario y matriz
   1 siendo par, malo
   1 s(a)=s(a)+b(b,a)
   1 pasar a binario los f(ff)
   1 o de tener un gran ordena-  dor personal, se puede hacer    realidad" 
   1 matriz binaria b(ff,5)
   1 m=1 ha jugado el personal
   1 juega el personal
   1 juega el ordenador siendo impar
   1 juega el ordenador
   1 imh.pm34.z
   1 gana el ordenador
   1 gana el jugador
   1 final jugada usuario u ordenador
   1 final del analisis par o impar
   1 fin datos y dibujar
   1 f(j)=f(j)-1
   1 f(fl)=f(fl)-es
   1 f$="     Periodo...A     Periodo...B     Periodo...C     Periodo...D     Periodo...E     Periodo...F     Periodo...G     Periodo...H     Periodo...I     Periodo...J     Periodo...K     Periodo...L"
   1 el personal introduce los datos
   1 el ordenador introduce los datos
   1 deduccio sense justificants
   1 deduccio per membres U.F.>70 anys
   1 deduccio per matrimoni
   1 deduccio per fills per fam.numerosa
   1 deduccio per fills
   1 deduccio per ascendens
   1 deduccio invalits i grands mutilats
   1 deduccio general
   1 d$="********PEARL  HARBUR***********"
   1 condicion final
   1 comentario
   1 b;"      ";:
   1 b(fl,p)=c(6
   1 b(b,c)=c(6
   1 b$="59:<59:<59:<959799759<<:99:<9575"
   1 b$="**** POR J.JAVIER GONZALEZ *****"
   1 analizar si la situacion es par o impar.S$="p" o S$="i"
   1 ab-z-((F*a)+(d)+(c*H)+(e*L)+(b*E)+(I*10
   1 a=no correcte
   1 a$="2228222822244448222844282224444:"
   1 a$="********** CALENDARIO *********"
   1 a$="              
   1 a$," -ESPERO QUE LA LIQUIDACION HAYA SIDO DE SU AGRADO"
   1 TZX por Manuel Gomez Amate
   1 SUMARIO                     EDITORIAL                   BATALLA                     P.HARBUR                    CALENDARIO                  GRAFIBARRA                  RENTA                       ESTRELLAS                   PISTOLA                     BOMBARDERO                  NUMEROS                     MINA                        CRUCIGRAMA                  NHP 5                       DESTRUIR                                                                                                                                                                n
   1 SUMARIO   
   1 SEGUIR O NO
   1 RENTA     
   1 R>4200000 
   1 R=A+B+C+D+Z+O
   1 P.HARBUR  
   1 OLA QUE MAS     PREMIOS CONCEDE A SUS LECTO-    RES.                                                            Animo, y a por los grandes      premios que VIDEOSPECTRUM       regala mensualmente."
   1 O MAYOR DE 1753??? ";w
   1 IMH.PM34.Z
   1 GRAFIBARRA+
   1 F.ARDERIUS
   1 Enero     Febrero   Marzo     Abril     Mayo      Junio     Julio     Agosto    Septiemb. Octubre   Noviembre Diciembre X
   1 ESTRELLAS C)
   1 EDITORIAL 
   1 Castellano
   1 CINTA 07 Cara A
   1 CAZA..                        
   1 CALENDARIO"
   1 BATALLA   
   1 ;;"GRABANDO ";
   1 ;,,">>> PONGA EN MARCHA EL CASSETTE",,,,,
   1 ;"~a~ adelantar un mes ~s~ atrasar~d~ finaliza el programa "
   1 ;"______________________________":
   1 ;"___________________________"
   1 ;"__________________________"
   1 ;"Viene el enemigo";
   1 ;"VAYA JUGADA MALA":
   1 ;"VAS POR BUEN CAMINO!":
   1 ;"Trav. de Gracia 62 - BARCELONA"
   1 ;"Tfnos.2593108 2593106"
   1 ;"Tfno. 259 31 08"
   1 ;"Tfno. (93) 209 39 22":
   1 ;"Tfno 2592103 2593006  2593108 "
   1 ;"Te han vencido     ":
   1 ;"Te estan invadiendo";
   1 ;"TU JUEGAS"
   1 ;"TENIA LA SEGURIDAD DE GANAR!":
   1 ;"TE CREES MUY LISTO               PRUEBA CON MAS FILAS!":
   1 ;"SUPERINTELIGENTES"
   1 ;"SIGNO Impresores"
   1 ;"SABES DEMASIADO!!!!":
   1 ;"Revista de Software":
   1 ;"REDACCION Y SUSCRIPCIONES:"
   1 ;"R E V I S T A";
   1 ;"Quieres jugar otra vez (S/N)"
   1 ;"QUIZAS LA PROXIMA...":
   1 ;"QUIEN INICIA EL JUEGO?"
   1 ;"Q= Izquierda"
   1 ;"Pulsa cualquier tecla":
   1 ;"Para Mover el Barco"
   1 ;"PUNTOS ";po:
   1 ;"PUNTOS ";po
   1 ;"PULSA PLAY":
   1 ;"PUEDES GANAR!!":
   1 ;"PUBLICIDAD:"
   1 ;"PUBLICIDAD BARCELONA:"
   1 ;"PRUEBA CON MENOS FILAS":
   1 ;"PRUEBA CON MENOS *":
   1 ;"PROGRAMAS                        ":
   1 ;"PRESIONA UNA TECLA PARA JUGAR"
   1 ;"POLYGRAM SERVICIOS S.A."
   1 ;"PIENSAS MUY POCO!!":
   1 ;"PIDO LA REVANCHA",,,"DEJAME INTRODUCIR LOS DATOS":
   1 ;"PARA CARGAR OTRO PROGRAMA"
   1 ;"P= Derecha"
   1 ;"NUNCA LO HUBIERA IMAGINADO":
   1 ;"NO VALE!":
   1 ;"NO TE TEMO!!!":
   1 ;"NO TE PREOCUPES, OTRA VEZ ...":
   1 ;"NO TE PREOCUPES ERA MUY DIFICIL":
   1 ;"NO ME LO ESPERABA!!":
   1 ;"NO ME AGUANTO DE LO LISTO",,,"QUE SOY":
   1 ;"NO LO CREIA POSIBLE,!QUE TIO!":
   1 ;"NO INSISTAS SERA PEOR!!":
   1 ;"NO HAY QUIEN ME VENZA":
   1 ;"NO HAY QUIE PUEDA GANARME":
   1 ;"Mari Carmen del Toro"
   1 ;"MUY MAL HECHO!!":
   1 ;"MES DE 1 A 12??? ";v
   1 ;"ME DAS LA REVANCHA":
   1 ;"MAGNIFICO!!":
   1 ;"MACHO T'HAS PASAO":
   1 ;"Lo As Logrado                                                   Has ganado en Pearl Harbur         !!!Te Desafio!!!.":
   1 ;"LO TIENES PERDIDO!!!":
   1 ;"LO PIENSAS MUY POCO":
   1 ;"LO HAS PENSADO BIEN?":
   1 ;"LO HACES MUY BIEN!!":
   1 ;"LAS REGLAS SON:"
   1 ;"Jose Luis Diez"
   1 ;"Javier del Bosque     "
   1 ;"JUEGAS FATAL":
   1 ;"JUEGAS BIEN, PERO YO MEJOR":
   1 ;"JA! JA! JA!":
   1 ;"INTENTALO OTRA VEZ":
   1 ;"IMPRIME:"
   1 ;"HUIDOS "+
   1 ;"HAS QUEDADO MUY MAL,!PIENSA!":
   1 ;"HACIENDA SOMOS TODOS"
   1 ;"Francisco Valades Galindo"
   1 ;"FABRICADO POR:"
   1 ;"En este numero,empieza el con-  curso de crucigamas,hemos pro-  curado que sea sencillo, para   que una inmensa mayoria de vo-  sotros, podais entrar en el     sorteo mensual ante Notario,de  dos Impresoras, dos Interfaces  y dos fabulosos Joystick,y co-  mo noticia bomba,todos los      acertantes AUTOMATICAMENTE EN-  TRAREIS en el FABULOSO SORTEO,  ante Notario, cada seis meses,  de UN ORDENADOR QL. Vuestro     sue
   1 ;"ESTO NO ME LO ESPERABA!!":
   1 ;"ESTE ES USTED:          
   1 ;"ESTE ES UN JUEGO PARA"
   1 ;"ESO ERA MUY FACIL":
   1 ;"ERES UN MAGNIFICO OPONENTE"
   1 ;"ERES DEMASIADO, TIO!!":
   1 ;"ERES CASI TAN INTELIGENTE                 COMO YO!!":
   1 ;"ENHORABUENA":
   1 ;"ELEMENTALMENTE MAL!!":
   1 ;"EDITA: GEASA"
   1 ;"Deseas hacer otro grafico. (s/n)"
   1 ;"DISTRIBUYE:"
   1 ;"DISPREN, S.A."
   1 ;"DIRECTOR:"
   1 ;"DESTRUIDOS "+
   1 ;"DESTRUIDO":
   1 ;"DESEAS SEGUIR JUGANDO (S/N)?"
   1 ;"DESEAS INTRODUCIR LOS DATOS"
   1 ;"DEL JUEGO?"
   1 ;"DEJAME PENSAR!":
   1 ;"DEJAME ELEGIR LOS DATOS":
   1 ;"DE VEZ EN CUANDO.....":
   1 ;"D E   S O F T W A R E"
   1 ;"CONCURSO"
   1 ;"CON ESAS FILAS CUALQUIERA":
   1 ;"COMPOSICION:"
   1 ;"COEFICIENTE INTELECTUAL ENORME ":
   1 ;"C/Albasanz, 27  - 28037 MADRID"
   1 ;"C/ San Telmo 24- 28016 MADRID "
   1 ;"BUENA SUERTE!!!                  EN PEARL HARBUR                 SUS MANDOS SON:     1-ABAJO                         2-ARRIBA                        0-DISPARO"
   1 ;"BUENA JUGADA!!":
   1 ;"BARCOS ";ba:
   1 ;"BARCOS ";ba
   1 ;"ASI NUNCA GANARAS!!":
   1 ;"ASI NO GANARAS":
   1 ;"ASI EMPECE YO!!":
   1 ;"ADMINISTRACION:"
   1 ;"4)Envielo a:VIDEOSPECTRUM"
   1 ;"4)Envielo a:VIDEOSPCTRUM"
   1 ;"4)Envielo a: VIDEOSPCTRUM"
   1 ;"3)Si es elegido ganara 5000 pts"
   1 ;"1)Realice un progama original"
   1 ;"-JUEGA UNA VEZ CADA UNO."
   1 ;"-HAY DOS JUGADORES: TU Y YO."
   1 ;"-GANA QUIEN TOMA LA ULTIMA *"
   1 ;"-EN CADA JUGADA SE BORRAN        TODAS LAS * QUE SE QUIERA,      PERO! DE UNA MISMA FILA."
   1 ;"--SUERTE--";
   1 ;"---SUMARIO---";
   1 ;"---EDITORIAL---";
   1 ;"***SUMARIO***":
   1 ;"***********************         * JUAN  CARLOS  MERINO*         *      MARTINEZ       *         *      PRESENTA:      *         *   PEARL  HARBUR     *         ***********************"
   1 ;"";f$;"""";
   1 ;"!no vale!":
   1 ;" USTED PIL-OTA UN CAZA DE LAS FUERZAS ARMA-DAS AMERICANAS PARA INTENTAR    DETENER LA INVASION DE ENEMIGO  JAPONES. TENDRA QUE DESTRUIR MISILES,BOMBARDEROS,CAZAS,40 EN TO-TAL. PERO SI SE LE ESCAPAN 20 EN TOTAL PERDERA. !!! BUENA SUERTE EN PEARL HARBUR!!!"
   1 ;" PRUEBE SU HABILIDAD DE GUERRA   NO SE RINDA TODAVIA QUEDA        MUCHA TAREA CONTINUE JUGANDO":
   1 ;" Nombre del grafico.":
   1 ;" Lun ";"Mar ";"Mie ";"Jue";" Vie";" Sab"
   1 ;" Introduce el dato menor.":
   1 ;" Introduce el dato mayor.":
   1 ;" ABCDEFGHIJKL    "
   1 ;"  Asi mismo mantenemos nuestro    gran concurso de programas,     con lo cual VIDEOSPECTRUM,ES    LA REVISTA ESPA
   1 ;"   Estan bien los datos. ( s/n )"
   1 ;"     PULSE CUALQUIER TECLA":
   1 ;"     Con este programa se puedenrealizar graficos de barras de  manera sencilla, bastara solo   seguir las instrucciones que tu Spectrum te de.                      Realiza un grafico de doce periodos,que pueden equivaler a dias, semanas, meses, etc.           Tu Spectrum te pedira el   dato maximo y el minimo para es-tructurar el grafico."
   1 ;"               "
   1 ;"                       ":
   1 ;"                          ":
   1 ;"                             "
   1 ;"                              "
   1 ;"                                "
   1 ;"            
   1 312831303130313130313031A
   1 300 ptas (1'80 eur)
   1 .D.L.: M. 8699-1985
   1 ,"BASE INFERIOR A 1590000"
   1 ," DECLARACION NORMAL"
   1 +(R-800000
   1 +(R-600000
   1 +(R-400000
   1 +(R-3800000
   1 +(R-3400000
   1 +(R-3000000
   1 +(R-2600000
   1 +(R-2200000
   1 +(R-200000
   1 +(R-1800000
   1 +(R-1000000
   1 *ab)/R;" %"
   1 ***************PEARL  HARBUR****
   1 ************         * 
   1 ***********
   1 ********** CALENDARIO *********B 
   1 **** POR J.JAVIER GONZALEZ *****x
   1 )=(k-i)/(h-i)*15
   1 );x;". ";n$(x):
   1 "velocidad 1 a 5=";j:
   1 "u"+e,dato:
   1 "t"+e,dato:
   1 "s"+e,dato:
   1 "r"+e,dato:
   1 "q"+e,dato:
   1 "o"+e,dato:
   1 "numero de hijos(1,2,3)=";F
   1 "numero de ascendientes con deduccion=";H
   1 "no consta en tabla":
   1 "miembros U.F.invalidos o grandesmutilados=";J
   1 "miembros U.F.>70 anos=";E
   1 "j"+b,dato:
   1 "i"+e,dato:
   1 "h"+b,dato:
   1 "g"+b,dato:
   1 "f"+b,dato:
   1 "e"+e,dato:
   1 "d"+e,dato:
   1 "c"+c,dato:
   1 "b"+e,dato:
   1 "a"+a,dato:
   1 "Total deducciones de la cuota           pesetas =";
   1 "TIPO MEDIO DE GRAVAMEN=";(100
   1 "Suma o BASE SOMETIDA A TARIFA    GENERAL(51)          =";A+B+C+D+Z+O
   1 "Retenciones a cuenta=";z
   1 "Rendimientos netos del trabajo    personal=";A
   1 "Rendimientos netos del trabajo            =";A
   1 "Rendimientos netos del Capital  Mobiliario=";B
   1 "Rendimientos netos C.Mobiliario           =";B
   1 "Rendimientos Netos del Capital  Immobiliario=";C
   1 "Rendimientos Netos actividades Agrarias   =";O
   1 "Rendimientos Netos actividades  Agrarias  =";O
   1 "Rendimientos Netos C.Immobilia- rio       =";C
   1 "Rendimientos Netos Actividades  Prof. y Artist
   1 "Rendimientos Netos Actividades   Empresariales  =";Z
   1 "Rendimientos Netos Activ. Prof. y Artist. =";D
   1 "Rendimientos Netos Activ. Empre-  sariales=";Z
   1 "RENTA PERSONAS FISICAS 1984 
   1 "Pulsa una-s-para borrar pantalla"
   1 "Pulsa 1 Facil, 0 Dificil  ";son:
   1 "Primas seguros de vida=";K
   1 "Primas seguros de vida                          =";K*.15
   1 "P.HARBUR"
   1 "Nomero de hijos si son mas de 4=";L
   1 "Nombre del declarante o declarantes= ";a$
   1 "NUMERO DE FILA  ";fl
   1 "Miembros U.F.que trabajen =";G
   1 "Gastos exepcionales 10% tope    30000 =";I
   1 "Gastos Enfermedad                               =";L*.15
   1 "Gastos  Enfermedad =";L
   1 "GRAFIBARRA"
   1 "ESTRELLAS"
   1 "EDITORIAL"
   1 "Deduccion por ascendentes                       =";H*c
   1 "Deduccion opcional sin justifi- cantes","=10000"
   1 "Deduccion hijos =";F*a
   1 "Deducc.fam.num. =";e*L
   1 "Deduc.miembros U.F.>70 anos                     =";E*b
   1 "Deduc.miembros U.F.  inval.o gran-des mutilados =";J*o
   1 "Deduc.matrimonio=";d
   1 "Deduc.Gastos exepcionales 10%                   =";I*10
   1 "Deduc. general  =";g
   1 "DESTRUIR"
   1 "DESGR.Rendimientos Netos Trabajo TOPE 10000 PERC=";Q
   1 "DESGR.Rendimientos Netos Trabajo Personal  TOPE 10000 POR PERCEP-TOR=";Q
   1 "DECUCIONES CONTRIB. CASADO"
   1 "DECLARACION SIMPLIFICADA/NORMAL (S/N)";B$
   1 "DECLARACION SIMPLIFICADA"
   1 "Cuota liquida       
   1 "Cuota Integra       =";
   1 "CUOTA AL TIPO GENERAL=";ab
   1 "CUANTOS EN LA FILA";" ";(a);"?";"               (de 1 a 29)";"        ";aa
   1 "CUANTAS FILAS DESEAS?             (de 1 a 18);       ";ff
   1 "CUANTAS ESTRELLITAS  ";es
   1 "CRUCIGRAMA"
   1 "CASADO/SOLTERO (C/S)";C$
   1 "CALENDARIO"
   1 "BOMBARDERO"
   1 "Adquisicion Vivienda=";N
   1 "Adquisicion Valores Mobiliarios=";M
   1 "Adquisicion Valores Mobiliarios Cot.  Calificada=";M*.15
   1 "AdquisicioN  Viviendda                          =";N*.15
   1 "-Reteciones a Cuenta=";
   1 "- Total Deducciones =";
   1 "!NO VALE!":
   1 " ESCRIBA EL NUMERO DEL PROGRAMA  QUE DESEE: ";c
   1 "          - - - - "
   1 "                ";w$
   1 "                ";q$
   1 "                    
   1 !Revista de Software VideoSpectrum
   1  MISIL.                        
   1  JOSEP MASQUE I TORT
   1  J.JAVIER GONZALEZ *         *** ~  CALENDARIO ~  **         ***********************                                   
   1  Isi Merino. ":
   1  F-18 ESTOS SON SUS ENEMIGOS: 
   1        "                    
   1                                                                                  
   1                          
   1